home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-01_1988_-_de_Side_B.d64 / hyper dat (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  310 lines
  1. 0 goto20
  2. 1 @l:print"[147]";:list7000-7999
  3. 2 @p:print"[147]";:list1000-1049
  4. 3 @t:print"[147]";:list14000-14999
  5. 20 poke2,255:poke9,0:printchr$(142):poke808,225:poke53280,0:poke53281,0
  6. 30 print"[142][147][158]
  7. 40 [159]1,8,15,"i":[159]8,8,8,"#"
  8. 41 [152]1,"u1"8;0;19;0:[152]1,"b-p"8;254:[161]#8,a$:[161]#8,b$:[161]#8,t$:[161]#8,t$
  9. 42 [160]8:[160]1:[139]a$[178]""[167]da[178]100:[137]47
  10. 43 [139]t$[178]""[167]da[178]100:[137]47
  11. 44 [139][198](t$)[178]1[167]da[178]100:[137]47
  12. 45 [139]b$[178]""[167]b$[178][199](0)
  13. 46 [151]0,[198](b$):[151]2,[198](a$):da[178][194](2)
  14. 47 :
  15. 48 [139]ag[178]0[167][139]da[177]23[176]da[178]0[167][153]"datendisk einlegen":[146]203,63:ag[178]1:[137]20
  16. 50 :
  17. 51 [156]:[134]c$(26),d$(10),e$(26):l$[178]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
  18. 52 l$[178]l$[170]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd":[134]di$(350)
  19. 53 r$[178]"":pz[178][194](0):[134]a$(pz[170]2)
  20. 55 co[178][194](9):[140]:[129]i[178]1[164]23:[135]c$(i):[130]
  21. 60 [129]i5[178]1[164]10:[135]d$(i5):[139]d$(i5)[179][177]"***"[167][130]
  22. 90 da[178][194](2):[137]101
  23. 100 [160]8:[160]1:t[178]240:fe[178]0:[138]40:[143] goto55
  24. 101 t[178]240:[137]20000
  25. 110 [139]da[178]255[167]127
  26. 126 [153]"sicher ? ";:[151]198,0:[146]203,63:[161]a$:[146]203,64:[139]a$[179][177]"j"[167]100
  27. 127 [153]a$"sysbitte warten."
  28. 128 [152]1,"b-p"8,0:[152]8,"@@@":[152]1,"b-p"8,254:[152]8,[199](1)[199](0);
  29. 129 [129]i[178]0[164]18:[152]1,"u2"8;0;19;i:[141]51000:[130]:da[178]1:pz[178]0
  30. 130 [129]i[178]1[164]5:[152]8,"."[199](13);:[130]:[152]1,"u2"8;0;18;18:[160]8:[160]1:[138]
  31. 1000 [143]                                           *****  read  *****
  32. 1001 le[178]0:[141]1002:[137]1100
  33. 1002 [141]30000:[141]10000:f[178]1:[139]z[179][177]da[167][142]
  34. 1003 [139]f[178]3[167]x2[178]nz:[137]1005
  35. 1004 x2[178]0:y[178]0:x[178]1:[139][201](n$,1)[178]"*"[167]n$[178][200](n$,[195](n$)[171]1)
  36. 1005 :
  37. 1006 [129]x2[178]x2[164]18:nz[178]x2:le[178]1
  38. 1007 b$[178]"":[139]y[177]t[167]y[178]0:[130]x2
  39. 1010 [129]x[178]x[164]pz[171]1:b$[178]di$(x)
  40. 1011 di$[178]b$:j[178]j[170][195](b$):[139]b$[178]"@@@"[167]pz[178]x:[137]1030
  41. 1012 [143] y=j:x=x+1:gosub51000
  42. 1013 :
  43. 1014 [137]1016
  44. 1015 [129]j[178]1[164]1:[129]x[178]y[170]1[164]pz[170]1:y[178]x[171]1:b$[178][200](di$(x[171]1),[195](n$)):[139]di$(x[171]1)[178]"@@@"t
  45. 1016 [139]f[178]1[176]f[178]3[167][139]n$[178][200](b$,[195](n$))[167]x[178]x[170]1:[137]1050
  46. 1017 [139]n$[179][177]b$[167]b$[178]""
  47. 1018 [139][194](203)[178]64[167][130]x:y[178]0:[137]1050
  48. 1020 [139][194](203)[179][177]64[167][153]"opensuche abgebrochen.":[129]i[178]1[164]2000:[130]:[137]100
  49. 1030 [139]f[178]1[176]f[178]3[167][153]"nichts (mehr) gefunden.":[146]203,63:[146]203,64:[137]100
  50. 1040 [139]f[178]2[167]b$[178]"":[142]
  51. 1050 [142]
  52. 1100 [143]   ***** not dir.data read
  53. 1105 [139]le[179][177]1[167]1150
  54. 1110 n[178]x[171]1:[141]50000:[152]1,"u1";8;0;sp;se:[141]4000:[139]a$[178]"n"[167]100
  55. 1120 [139]x[179]pz[167]f[178]3:[141]1003:[137]1110
  56. 1140 [137]100
  57. 1150 [129]i2[178]1[164]pz:n[178]i2[171]1:[141]50000
  58. 1155 [139][194](203)[179][177]64[167][153]"opensuche abgebrochen.":[129]i[178]1[164]2000:[130]:[137]100
  59. 1160 [152]1,"u1";8;0;sp;se:[129]j2[178]1[164]z:[132]8,a$:[130]
  60. 1165 [139]s[178]1[167]a$[178][200](a$,[195](n$))
  61. 1170 [139]a$[179][177]n$[167][130]:[153]"nichts (mehr) gefunden.":[146]203,63:[137]100
  62. 1180 [141]4000:[139]a$[178]"n"[167]100
  63. 1190 [130]:[130]:[137]100
  64. 2000 [143]                                           ***** write  *****
  65. 2005 [141]5000:f[178]2:[141]1003:x[178]pz:[139]y[178]0[167]y[178][171]1
  66. 2007 [143] print"y="y"pz="pz"n="n"x="x:stop
  67. 2010 [152]1,"b-p";8;y[170]1:[139]pz[177]299[167][137]19900
  68. 2020 [152]8,e$(da)[199](13)"@@@":[152]1,"u2";8;0;19;x2:[141]51000
  69. 2030 n[178]x:[141]50000:[152]1,"u1"8;0;sp;se:[152]1,"b-p"8;0
  70. 2035 [143] print"sp/se:"sp;se:stop
  71. 2040 [129]i[178]1[164]13:[152]8,e$(i):[130]:[152]1,"u2"8;0;sp;se:n[178]n[170]300:[141]50000
  72. 2050 [152]1,"b-p"8;0:[129]i[178]14[164]23:[152]8,e$(i):[130]
  73. 2060 [152]1,"u2"8;0;sp;se:[152]1,"u1"8;0;19;0:[152]1,"b-p"8;254:[152]8,[199](da)[199](pz[170]1);
  74. 2062 [152]1,"b-p"8;254:[152]8,[199](da)[199](pz[170]1);
  75. 2065 [152]1,"u2"8;0;19;0
  76. 2070 [151]0,[194](0)[170]1
  77. 2100 [141]10000:[138]40
  78. 3000 [143]                                           *****directory****
  79. 3001 [139]di$(0)[178]""[167]a$[178]"d":[137]3004
  80. 3002 [153]"contdiskettendirectory oder speicher ?":[146]203,64:[146]203,63
  81. 3003 [161]a$:[151]198,0
  82. 3004 [153]"loadcont   momentane datenart im verzeichnis:   ";
  83. 3005 [153]"                                        on";
  84. 3006 [153][200](r$,20[171][195](c$(da)))c$(da):[129]i[178]1[164]2000:[130]:[153]""
  85. 3008 [139]a$[178]"d"[167]3012
  86. 3009 [129]i[178]0[164]pz[171]1:[153]""i[170]1;di$(i):[139][194](203)[178]64[167][130]
  87. 3010 [129]j[178]1[164]1000:[130]:[137]100
  88. 3012 x[178]0:[152]1,"b-p";8;0:[129]i[178]0[164]18:[152]1,"u1";8;0;19;i:[141]51000:[129]j[178]0[164]t
  89. 3015 x[178]x[170]1:[132]8,a$:di$(x[171]1)[178]a$:[139]a$[178]"@@@"[167]3030
  90. 3020 [153]x;a$:j[178]j[170][195](a$):[139][194](203)[178]64[167][130]j:[130]i
  91. 3030 [146]203,63:[146]203,64:[137]100
  92. 4000 [143]  **** ausgabe ****
  93. 4001 qq[178]y
  94. 4005 [143] print"aktuelle sp/se:"sp;se:stop
  95. 4010 [152]1,"b-p"8;0:[129]i[178]1[164]13:[132]8,e$(i):[130]:n[178]n[170]300:[141]50000:[153]"openload"
  96. 4012 [152]1,"u1"8;0;sp;se:[152]1,"b-p"8;0:[129]i[178]14[164]23:[132]8,e$(i):[130]
  97. 4020 [129]i[178]1[164]13:[139]e$(i)[179][177]"sin"[167][153]"open"c$(i)":  "
  98. 4021 [139]e$(i)[178]"sin"[167]4030
  99. 4025 [139][195](e$(i))[179]24[167][153]"on"[200](r$,14)e$(i):[137]4030
  100. 4027 [153]e$(i)
  101. 4030 [130]:[153]"clr       bitte taste druecken.open":[146]203,63:[146]203,64:[153]"load"
  102. 4040 [129]i[178]14[164]23:[139]e$(i)[179][177]"sin"[167][153]"open"c$(i)":  "
  103. 4041 [139]e$(i)[178]"sin"[167]4050
  104. 4045 [139][195](e$(i))[179]21[167][153]"on"[200](r$,18)e$(i):[137]4050
  105. 4047 [153]e$(i)
  106. 4050 [130]:[153]"clr           weitersuchen ?":[151]198,0:[146]203,63:[161]a$:[146]203,64
  107. 4999 y[178]qq:[142]
  108. 5000 [143]  **** eingabe ****
  109. 5010 [129]i[178]1[164]23:e$(i)[178]"sin":[153]"load"c$(i)"   "e$(i)[200](l$,[195](e$(i))[170]2);
  110. 5020 [133]e$(i):[139]e$(i)[178]"error"[167]100
  111. 5025 [139][201](e$(i),1)[178]"*"[167][153]"unmoeglich !":[129]qq[178]1[164]1000:[130]:i[178]i[171]1
  112. 5030 [130]:[153]"load"
  113. 5999 [142]
  114. 6000 [143]  **** verbessern ****
  115. 6010 [153]"load"c$(da)"";:[133]n$
  116. 6015 f[178]1:[141]1003:[137]6030
  117. 6020 f[178]3:[141]1003
  118. 6030 n[178]x[171]1:[141]50000:[152]1,"u1"8;0;sp;se:[152]1,"b-p"8;0:[141]4000
  119. 6032 [139]a$[178]"j"[167]6110
  120. 6033 [139]vf[178]1[167]vf[178]0:[137]100
  121. 6038 n[178]x[171]1:[141]50000:[152]1,"u1"8;0;sp;se:[143] vf=1
  122. 6040 [129]i[178]1[164]13:[132]8,e$(i):[153]"openload"c$(i)"   "e$(i)[200](l$,[195](e$(i))[170]2);
  123. 6050 [133]e$(i):[139][201](e$(i),1)[178]"*"[167][153]"unmoeglich !":[129]i[178]1[164]2000:[130]:i[178]i[171]1
  124. 6060 [130]:[152]1,"b-p"8,0:[129]i[178]1[164]13:[152]8,e$(i):[130]:[153]"load"
  125. 6065 [152]1,"u2"8;0;sp;se:n[178]n[170]300:[141]50000:[152]1,"u1"8;0;sp;se:[152]1,"b-p"8;0
  126. 6070 [129]i[178]14[164]23:[132]8,e$(i):[153]"load"c$(i)"   "e$(i)[200](l$,[195](e$(i))[170]2);
  127. 6078 [151]198,0
  128. 6080 [133]e$(i):[139][201](e$(i),1)[178]"*"[167][153]"unmoeglich !":[129]i[178]1[164]2000:[130]:i[178]i[170]1
  129. 6090 [130]:[152]1,"b-p"8,0:[129]i[178]14[164]23:[152]8,e$(i):[130]
  130. 6100 :[152]1,"u2"8;0;sp;se:[153]"load":[153]"clr      weitersuchen ?"
  131. 6105 [146]203,63:[161]a$:[139]a$[178]"n"[167]6170
  132. 6110 [139]x[179]pz[167]6020
  133. 6170 [137]100
  134. 7000 [143]   **** change sp.19 ****
  135. 7010 [153]"loadsyswelche daten sollen in die liste :":f[178]20:x[178]0
  136. 7020 [141]30100:[153]"loadsicher ?":[146]203,63
  137. 7021 [161]a$:[139]a$[178]""[167]7021
  138. 7022 [139]a$[179][177]"j"[167]7100
  139. 7025 [153]"daten werden gelesen.":[141]7030:[141]7055:[137]7100
  140. 7030 z2[178]z:[129]i[178]1[164]pz:[143] print"n="n
  141. 7035 n[178]i[171]1:[139]z[177]13[167]n[178]i[170]299:z2[178]z[171]13
  142. 7040 [141]50000:[152]1,"u1"8;0;sp;se:[152]1,"b-p"8;0:[139][194](203)[179][177]64[167]100
  143. 7043 [153]"noch zu lesende daten:"pz[171]i"cmd   on"
  144. 7050 [129]j[178]1[164]z2:[132]8,a$(i):[130]:[130]:[142]
  145. 7055 [153]"liste wird angelegt."
  146. 7060 [152]1,"b-p"8,254:[152]8,[199](z);[199](pz):[151]2,z:[153]"cont
  147. 7065 pz=pz+1:a$(pz)="@@@"
  148. 7070 x=0:fori=0to18:print#1,"b-p"8;0:forj=0tot:x=x+1:print#8,a$(x)
  149. 7071 :
  150. 7073 rem print"noch zu schreibende daten:"pz-x+1"[157]   [145]"
  151. 7075 ifx>pzthenprint#1,"u2"8;0;19;i:return
  152. 7080 j=j+len(a$(x))
  153. 7090 nextj:print#1,"u2"8;0;19;i:nexti:return
  154. 7100 pz=pz-1
  155. 7999 goto100
  156. 8000 rem **** code ****
  157. 8010 print"[147]bitte geben sie jetzt ihren code ein.":poke198,0:co$="":poke9,0
  158. 8020 wait203,63:geta$:ifa$=""then8020
  159. 8030 ifasc(a$)<>13thenco$=co$+a$:goto8020
  160. 8040 print#1,"u1"8;0;18;18:print#1,"b-p"8;0:fori=1to5:input#8,v$
  161. 8048 gosub9400:ifv$<>co$thennext:goto8900:rem"[141][145][145][145][145]
  162. 8050 [152]1,"u1"8;0;19;0:[151]9,i:[141]10000:[137]100
  163. 8900 [153]"          code ungueltig.":[146]203,63
  164. 8920 [137]100
  165. 8999 [146]203,63:[137]100
  166. 9000 [143] **** change param. ****
  167. 9005 [160]8:[160]1:[159]1,8,15,"i":[159]8,8,8,"#"
  168. 9010 [153]"loaddefmomentane konstanten:":[152]1,"u1"8;0;19;0:[152]1,"b-p"8;254
  169. 9020 [161]#8,a$,b$:[152]1,"u1"8;0;18;18:[152]1,"b-p"8;0:[129]i[178]1[164]5:[132]8,v$(i):[130]
  170. 9025 [129]i[178]1[164]5:v$[178]v$(i):[141]9400:v$(i)[178]v$:[130]
  171. 9030 [139]a$[178]""[167]a$[178][199](0)
  172. 9031 [139]b$[178]""[167]b$[178][199](0)
  173. 9040 da[178][198](a$):pz[178][198](b$):[153]"cont1wait datenart:"da"(="c$(da)")"
  174. 9041 [153]"2wait fileanzahl:"pz:[151]0,pz
  175. 9042 [153]"  die codes in ihrer hirarchischen
  176. 9043 print"  reihenfolge:":fori=1to5:print""right$(str$(i+2),1)"[146]",v$(i):next
  177. 9045 print"8[146] gar nichts"
  178. 9050 print"[153]was soll geandert werden ?                 (nummer druecken)
  179. 9060 [146]203,63:[161]a$:[139]a$[178]""[167]9060
  180. 9070 [139][197](a$)[179]1[176][197](a$)[177]8[167]9060
  181. 9080 [139]a$[178]"8"[167]100
  182. 9090 [145][197](a$)[141]9100,9200,9300,9300,9300,9300,9300:[137]9000
  183. 9100 [153]"loadcontdatenart: (momentan"da"cmd)":d2[178]da[171]1:a$[178]"":[137]9115
  184. 9110 [146]203,63:[161]a$:[139]a$[178]""[167]9110
  185. 9115 [139][198](a$)[178]13[167]da[178]d2:[152]1,"u1"8;0;19;0:[152]1,"b-p"8;254:[137]9170
  186. 9120 [139][194](653)[178]1[167]d2[178]d2[171]1:[137]9140
  187. 9130 d2[178]d2[170]1
  188. 9140 [139]d2[179]1[167]d2[178]1
  189. 9141 [139]d2[177]23[167]d2[178]23
  190. 9145 [153]"on"d2"cmd  "c$(d2)"                ":[137]9110
  191. 9170 [152]8,[199](da);:[152]1,"u2"8;0;19;0:[142]
  192. 9200 [153]"load";:[133]"neue fileanzahl ";fz:[139]fz[179]0[176]fz[177]255[167]9200
  193. 9210 [152]1,"u1"8;0;19;0:[152]1,"b-p",8;255:[152]8,[199](fz);:[152]1,"u2"8;0;19;0
  194. 9220 [151]0,fz:pz[178]fz:[142]
  195. 9300 [153]"load":a[178][197](a$)[171]2
  196. 9301 [153]"defneuer"a"cmd.code ";:[133]a$:[139]a$[178]v$(a)[167][142]
  197. 9310 [129]i[178]1[164]5:[139]a$[179][177]v$(i)[167][130]:[137]9330
  198. 9320 [153]"das ist schon der"i"cmd.code !":[129]i[178]1[164]2000:[130]:[153]"load":[137]9301
  199. 9330 [152]1,"u1"8;0;18;18:[139]a$[178]""[167][153]"was soll das ?":[129]i[178]1[164]2000:[130]:[153]"load":[137]9301
  200. 9340 [152]1,"b-p"8;0:v$(a)[178]a$:[141]9450
  201. 9345 [129]i[178]1[164]5:[152]8,v$(i):[130]:[152]1,"u2"8;0;18;18
  202. 9350 [142]
  203. 9400 :
  204. 9410 c$[178]"":[129]kk[178]1[164][195](v$)
  205. 9420 c$[178]c$[170][199]([198]([202](v$,kk,1))[171]1):[130]:v$[178]c$:[142]
  206. 9450 [129]jj[178]1[164]5:c$[178]"":[129]kk[178]1[164][195](v$(jj))
  207. 9460 c$[178]c$[170][199]([198]([202](v$(jj),kk,1))[170]1):[130]:v$(jj)[178]c$:[130]:[142]
  208. 9999 [146]203,63:[137]100
  209. 10000 [143]  **** dir read  ****
  210. 10010 [153]"sysbitte warten sie einen moment."
  211. 10030 x[178]0:[152]1,"b-p";8;0:[129]i[178]0[164]18:[152]1,"u1";8;0;19;i:[141]51000:[129]j[178]0[164]t
  212. 10040 [132]8,di$(x):[139]di$(x)[178]"@@@"[167]10060
  213. 10050 j[178]j[170][195](di$(x)):x[178]x[170]1:[130]:[130]
  214. 10060 [142]
  215. 14000 [153]x;b$
  216. 14010 [142]
  217. 19900 [143]  **** disk full ****
  218. 19910 [153]"";:a$[178]"die diskette ist voll !":[129]i[178]1[164]20:[153]"on";a$:aw[178][186]([255])
  219. 19920 [153]"on"a$:[130]:[153]"der versuch muss abgebrochen werden."
  220. 19930 [146]203,63:[146]203,64:[137]100
  221. 20000 [143]                                           ****  menue  ****
  222. 20005 [151]53280,0:[151]53265,39:si[178]11
  223. 20010 [153]"load";:[129]i[178]1[164]10:[153]"ortan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan=tan^"
  224. 20011 [129]i[178]1[164]10:[153]"peek peekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeek"
  225. 20012 [153]"-tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan(NULL)tan<":[130]
  226. 20014 [153]"peek peekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeekclosepeek"
  227. 20015 [153]"/tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tan>tanexp"
  228. 20085 [151]53280,0:[151]53281,0:[151]198,0:f[178]23:[151]214,20:[153]:[151]211,31
  229. 20087 [153]"cont1987":[153]"       by hyper prog./nuremberg
  230. 20090 ifpeek(2)>23orpeek(2)=0thenprint"[158]erstdisketteheadern!":goto20092
  231. 20091 goto20100
  232. 20092 ifco=0orco>5thenco=6
  233. 20100 print"[159]";:gosub22000:poke53265,27
  234. 20110 x=1153:pokex,62:pokex+54272,1
  235. 20120 geta$:ifa$=""then20120
  236. 20125 ifasc(a$)=13then20160
  237. 20130 ifpeek(653)=1thend=-80:goto20140
  238. 20135 d=80
  239. 20140 if(x+d)<1153or(x+d)>(peek(209)+256*peek(210))then20120
  240. 20150 pokex,32:x=x+d:pokex,62:pokex+54272,1:goto20120
  241. 20160 :
  242. 20200 open1,8,15,"i":open8,8,8,"#":poke198,0:z=(x-1153)/80+1:ifz=2thenifco=6then20205
  243. 20202 ifpeek(2)=0orpeek(2)>23thenifz<>7thenifz<>1thenifz<>9then21000
  244. 20205 :print"[147]"
  245. 20207 ifco=0thenonzgoto8000
  246. 20210 ifco=1thenonzgoto8000,1000,2000,6000,7000,3000,110,9000
  247. 20220 ifco=2thenonzgoto1000,2000,6000,7000,3000
  248. 20230 ifco=3thenonzgoto1000,2000,6000,7000
  249. 20240 ifco=4thenonzgoto1000,2000,7000
  250. 20250 ifco=5thenonzgoto2000,7000
  251. 20260 ifco=6thenonzgoto110
  252. 20998 print#1,"i":close1:close8:print"[147]"left$(r$,16)"the end[144]":poke9,0
  253. 20999 poke808,237:end
  254. 21000 print"[147][158]ihre diskette ist noch nicht fuer die
  255. 21010 [153]"verwendung durch diese datei formatiert.
  256. 21020 print"bitte aendern sie dies entweder durch
  257. 21022 [153]"einlegen der entsprechenden diskette
  258. 21024 print"oder durch die funktion 'header'.
  259. 21100 [146]203,63:[146]203,64:[142]
  260. 22000 d$[178]"onon":[139]co[178]0[167][153][200](r$,si)""d$(1)[199](13)[200](r$,si)""d$(9):[142]
  261. 22010 [139]co[178]2[167]d$(1)[178]d$:d$(7)[178]d$:d$(8)[178]d$
  262. 22020 [139]co[178]3[167]d$(1)[178]d$:d$(7)[178]d$:d$(8)[178]d$:d$(6)[178]d$
  263. 22030 [139]co[178]4[167]d$(1)[178]d$:d$(7)[178]d$:d$(8)[178]d$:d$(6)[178]d$:d$(4)[178]d$
  264. 22040 [139]co[178]5[167]d$(1)[178]d$:d$(7)[178]d$:d$(8)[178]d$:d$(6)[178]d$:d$(4)[178]d$:d$(2)[178]d$
  265. 22045 [139]co[178]6[167][129]i[178]1[164]6:d$(i)[178]d$:[130]:d$(8)[178]d$
  266. 22050 [139]co[177]6[167][153]"? code error.":[151]9,0:[158]9
  267. 22100 [129]i[178]1[164]i5[171]1:[153]""[200](r$,si)d$(i):[130]:[142]
  268. 29999 [137]100
  269. 30000 [143]                                           ****  menue 2 ****
  270. 30010 [151]53280,0:[151]53281,0:[153]"load";:[151]198,0
  271. 30100 [153]"";:[129]j[178]1[164]f:[139]j[178]da[167][153]"sys";
  272. 30105 [153]""c$(j)"":[130]
  273. 30110 x2[178]1073:[151]x2,62:[151]x2[170]54272,10
  274. 30120 [161]a$:[139]a$[178]""[167]30120
  275. 30125 [139][198](a$)[178]13[167]30200
  276. 30130 [139][194](653)[178]1[167]d[178][171]40:[137]30140
  277. 30135 d[178]40
  278. 30140 [139](x2[170]d)[179]1073[176](x2[170]d)[177]([194](209)[170]256[172][194](210))[167]30120
  279. 30150 [151]x2,32:x2[178]x2[170]d:[151]x2,62:[151]x2[170]54272,10:[137]30120
  280. 30200 :
  281. 30205 z[178](x2[171]1073)[173]40[170]1:[153]"load"c$(z)" ";
  282. 30206 [139]f[179][177]23[167][142]
  283. 30210 s[178]0:[133]n$:[139]n$[178]"error"[167]100
  284. 30215 [139]n$[178]"sin"[176]n$[178]"*"[176]n$[178]""[167][153]"unmoeglich.":[129]i[178]1[164]2000:[130]:[137]30205
  285. 30220 [139][201](n$,1)[178]"*"[167]s[178]1:n$[178][200](n$,[195](n$)[171]1)
  286. 30999 [142]
  287. 50000 [143] umrechnung laufender nummern in         spur- und sektornummern
  288. 50010 :
  289. 50020 [139]n[177]356[167]50040
  290. 50030 sp[178][181](n[173]21)[170]1:se[178]n[171](sp[171]1)[172]21:[142]
  291. 50040 [139]n[177]394[167]50060
  292. 50050 sp[178][181]((n[171]357)[173]19)[170]20:se[178]n[171]357[171](sp[171]20)[172]19:[142]
  293. 50060 [139]n[177]451[167]50080
  294. 50070 sp[178][181]((n[171]395)[173]19)[170]22:se[178]n[171]395[171](sp[171]22)[172]19:[142]
  295. 50080 [139]n[177]559[167]50090
  296. 50085 sp[178][181]((n[171]452)[173]18)[170]25:se[178]n[171]452[171](sp[171]25)[172]18:[142]
  297. 50090 sp[178][181]((n[171]560)[173]17)[170]31:se[178]n[171]560[171](sp[171]31)[172]17:[142]
  298. 51000 [143]
  299. 51010 [132]1,a,a$:[139]a[179]20[167][142]
  300. 51020 [153]""a$" -bitte diskette pruefen !":[146]203,64:[146]203,63:[146]203,64
  301. 51030 fe[178]fe[170]1:[139]fe[177]4[167][153]"-versuchsabbruch...":[129]i[178]1[164]3000:[130]:[138]
  302. 51040 [142]
  303. 60000 [131]nachname,vorname,strasse,hausnummer,plz,wohnort,vorwahl,tel.,geburtstag
  304. 60010 [131]geburtsmonat,geburtsjahr,augenfarbe,haarfarbe,pass.nummer,groesse (cm)
  305. 60020 [131]unveraend.kennz.,verkehrsmittel,farbe,kennzeichen,beruf
  306. 60030 [131]sprachkenntnisse,kontaktpersonen,besonderheiten
  307. 60040 [131]code,suche,eingabe,verbessern,"verzeichnisaendern"
  308. 60045 [131]verzeichnis,header,reparatur
  309. 60050 [131]ende,***,@@@
  310.